From: Kenichi Handa <handa@m17n.org>
Date: Tue, 30 Jul 2002 06:35:38 +0000 (+0000)
Subject: (in-is13194): Give correct `safe-chars' property.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~31311
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=53b199ee0eb781ab9fcefa68b82eda41f1440181;p=emacs.git

(in-is13194): Give correct `safe-chars' property.
(devanagari): Define it as an alias of in-is13194.
---

diff --git a/lisp/language/indian.el b/lisp/language/indian.el
index 474ac74dd06..697d599ce60 100644
--- a/lisp/language/indian.el
+++ b/lisp/language/indian.el
@@ -34,10 +34,17 @@
  "8-bit encoding for ASCII (MSB=0) and IS13194-Devanagari (MSB=1)."
  '(ascii indian-is13194 nil nil
    nil ascii-eol)
- '((safe-charsets ascii indian-is13194)
+ `((safe-chars . ,(let ((table (make-char-table 'safe-chars nil)))
+		    (set-char-table-range table 'indian-is13194 t)
+		    (dotimes (i 127)
+		      (aset table i t)
+		      (aset table (decode-char 'ucs (+ #x900 i)) t))
+		    table))
    (post-read-conversion . in-is13194-post-read-conversion)
    (pre-write-conversion . in-is13194-pre-write-conversion)))
 
+(define-coding-system-alias 'devanagari 'in-is13194)
+
 (defvar indian-script-table
   '[
     devanagari